Sub prueba_GetPut()
    Dim fichero As String
    Dim m(1 To 5) As String
    Dim n(1 To 5) As String
    m(1) = "Uno"
    m(2) = "Dos"
    m(3) = "Tres"
    m(4) = "Cuatro"
    m(5) = "Cinco"
    Dim cliente As rCliente
    fichero = "C:\Temp\tfSeqRan.txt"
    Open fichero For Random As #1 Len = 100
    Put #1, 1, m
    Get #1, 1, n
    Dim i As Integer
    For i = 1 To 5
        Debug.Print n(i)
    Next i
    Close #1
End Sub
